From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 25 May 1993 23:19:07 +0000 (+0000)
Subject: (wait_reading_process_input): Call swallow_events.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95957
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6e103bac2ad64f9aa26642e8e612e13069688997;p=emacs.git

(wait_reading_process_input): Call swallow_events.
---

diff --git a/src/process.c b/src/process.c
index 9e2bdad45e3..f2c01258774 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1875,7 +1875,11 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
 	 to give it higher priority than subprocesses */
 
       if (XINT (read_kbd) && detect_input_pending ())
-	break;
+	{
+	  swallow_events ();
+	  if (detect_input_pending ())
+	    break;
+	}
 
       /* Exit now if the cell we're waiting for became non-nil.  */
       if (wait_for_cell && ! NILP (*wait_for_cell))